home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / newsgroups / misc.20020314-20021006 / 000037_svd_box_5@hotpop.com_Tue Apr 23 14:15:25 EDT 2002.msg < prev    next >
Text File  |  2002-10-06  |  2KB  |  55 lines
  1. Article: 13327 of comp.protocols.kermit.misc
  2. Path: newsmaster.cc.columbia.edu!panix!howland.erols.net!logbridge.uoregon.edu!newsfeed.stanford.edu!postnews1.google.com!not-for-mail
  3. From: svd_box_5@hotpop.com (Scott Davis)
  4. Newsgroups: comp.protocols.kermit.misc
  5. Subject: What is wrong with this macro
  6. Date: 23 Apr 2002 11:05:41 -0700
  7. Organization: http://groups.google.com/
  8. Lines: 37
  9. Message-ID: <97b4e474.0204231005.3bf7bc3e@posting.google.com>
  10. NNTP-Posting-Host: 208.192.214.6
  11. Content-Type: text/plain; charset=ISO-8859-1
  12. Content-Transfer-Encoding: 8bit
  13. X-Trace: posting.google.com 1019585141 32017 127.0.0.1 (23 Apr 2002 18:05:41 GMT)
  14. X-Complaints-To: groups-abuse@google.com
  15. NNTP-Posting-Date: 23 Apr 2002 18:05:41 GMT
  16. Xref: newsmaster.cc.columbia.edu comp.protocols.kermit.misc:13327
  17.  
  18. This macro worked fine under kermit 7, but under 8 it gives the message:
  19. ?Unbalanced braces
  20.  
  21. define get-a-3com-modem -
  22. {
  23.     local \%i
  24.     local got-line
  25.     echo Finding a 3com modem.
  26.     set input echo off
  27.     assign got-line 0
  28.     for \%i 2 9 1 -
  29.     {
  30.         xecho {Trying \%i : }
  31.         set line /dev/tty\%i
  32.         xif failure -
  33.         {
  34.             echo This line cannot be accessed
  35.             continue
  36.         }
  37.         set speed 38400
  38.         set flow rts
  39.         output \{13}
  40.         pause 1
  41.         output AT\{13}
  42.         input 2 OK
  43.         xif failure -
  44.         {
  45.             echo This line seems to be hung
  46.             continue
  47.         }
  48.         assign got-line \%i
  49.         break
  50.     }
  51.     if equal \m(got-line) 0 end 1 Error: all resources in use.
  52.     echo Available
  53.     echo Acquired a 3com modem.
  54. }
  55.